#Dennis Moskov, Master Thesis
#Create dissimilarity matrix with random forest
#using "randomForest" package

#install.packages("randomForest")
#library(randomForest)


#chose variables for clustering 
DBc<-DB[2:17]

#unsupervised random forest
clust <- randomForest(DBc)

#proximity and dissimilarity matrices
proxM<-clust$proximity
dissRF<-sqrt(1-proxM)


#variable importance
#importance(clust)

#save to file
#write.csv(dissMRF,file="RF Dissimilarity Matrix.csv")
